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E ‘TITLE UIUMAC DISK/TAPE CLASS DRIVER MACROS 
-IDENT = *V04=000" 


SRSSSSHHSHTHSTSEHSHHHAHHATHAEHAAAAAAHAHARAAAKEKERARHHAeeeeeeeteKeregereeeeeses 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL Shae ay CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


® 
% ® 
-@ & 
& e 
-@ ® 
-@ ® 
it THIS SOFTWARE. IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
+ ONLY IN ANCE WITH OTHE TERMS OF SUCH LICENSE AND WITH THE 
« TNCLUSION OF THE ABOVE COPYRIGHT NOTICE, THIS" SOFTGARE OR “ANY. OTHER 
* COPIES THEREOF “uy NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO.ANY 
@ OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE 1S HEREBY ®* 
;¢ TRANSFERRED. . 
-@ ® 
;@ THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ® 
;@ AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ® 
;® CORPORATION, : 
-@ ® 
:@ ® 
:@ ® 
:@ ® 
-@ ® 
:@ ® 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


SSESCHHHHHSSSHHHEHHAHHEHHHHAHHAHERAHARERAHAREREARAHAeeeeeeeeteeeeeteteeeeere 


FACILITY: 
MSCP Disk and Tape Class Drivers 
ABSTRACT: 


This module contains macros used by both the MSCP disk and tape 
class drivers. 


ENVIRONMENT : 


This module is used to build a macro Library for both the DUDRIVER 
and the TUDRIVER. 


oa 
aa 


AUTHOR: Ralph 0. Weber, CREATION DATE: 25-AUG-1983 
MODIFIED BY: 
nett oe kee. + CDDaSA eee in nowosese ne 
v03-008 ROW0383 Ralph 0. Weber 


= JUL -1984 
Add a fork block to oe extends d C008 ¢ det nition, To save 
space, the fork block is conta all within an unused pertion of 
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the DAP IRP/CDRP. The fork block will be used to provide a 
separate fork context for the altering of the standard 1/0 
database to refle-* a device failover. 


LMPO235 L. Mark Pilan 17-Apr-1984 14:30 
Add a new macro, INIT_ORB, eg ty Pag don fields in the 
fonptere one as well 3s supplying the initialization table 


ROWO339 Ralph 0. Weber 8-APR-1984 
Add invalid command vprecess ine macros; IVCMD_BEGIN, IF_IVCMD, 
and IVCMD_END. 


ROW0338 Ra yo 0. Weber 7-APR=-1984 
Remove CDDB$W_SCSALLLS which % ane longer used. AS... 
ACTION_ENTRY fo accept an END E poraceser Make 

e MSCP_CODE parameter to 


MSCPS$K_ST_ an automatic prerii ne t 
ACTION_ENTRY. Add DO ft ION oh does pee ppro riate thing for 
processing an action fable. Add tests MSC 
end-packet status for success — dren: coange ACTION_ENTRY 
and SDUTUDEF to yee ee fields for ATE_MSCPCOD Saves one 
byte per ACTION_ENTRY 


ROW0286 Ralph 0. Weber 22-JAN-1984 
Add IFCANCEL and iF CANCEL macros. 
ROW0279 Ralph 0. Weber 16-JAN=1984 


Add the followin Secragse ALT_REQCOM, get ye 
INIT_MSCP_MSG, ST_IRP, POST_CORP, and RESET MSCP_MSG. 
Remove unneeded s syabol definitions from $DUTUDEF and add ATE 


definitions to $DUT ‘ Adjust CDDB$W_SCSALCLS to account 
for CDDBSW_RSVDW disappearing. 
ROW0261 Ralph 0. Weber 22-NOV-1983 


Add the pe} Lowtng macros: 

o CREATE_FORK = an a way of startin ng 2 

© SDUTUDEF = define the CDDB with multiple IRP/COR 
extensions which is what the he we drivers tne y use and 
other constants used by both drivers 

o INIT_UCB = initialize the driver template UCBs (both those 
enerated by SYSGEN and the in-driver template UCB) 

© SEND_MSCP_MSG = general purpose send a MSCP message 


ROW0235 Ralph 0. Weber 6-0CT-1983 
Change the WAIT_ FOR” 10DB macro to warqutes that the fork IPL 
is IPL$_SCS before performing a FORKWAIT. 


erat thread 


--—_-—_--- 
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1 goo 
3 ALT_REQCOM 
| Functional description: 
The macro invokes request completion for class driver requests. 
Parameters: None. 


Inputs: 
first longword of 1/0 status 
R1 second longword of 1/0 status 
RS CORP address 
Outputs: 


Control does not return from this macro. 


-MACRO ALT_REQCOM 
JMP G*16CS$ALTREQCOM 
-ENDM = =ALT_REQCOM 


oe re ap G0 Re Oe OSs Se We OF Be Se Ss be Sede e0-es 
D 
oO 


SP SSS ss 
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ACTION_ENTRY 


This mac 
INTERPRE 
end-of-t 


0 38 
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ro produces entries in an action table used by the 
T ACTION TABLE routine. Either a single entry or and 
able marker is produced. If no parameters are given or the 


parameter is identically equal to END, the end-of-table marker is 
produced. Otherwise, an action entry is produced. 


Parameters: 
mscp_code a MSCP end status value which when matched causes the 
remainder of the action table entry to become valid 
and processed, or END TABLE. MSCPSK_ST_‘mscp_code’ is 
used as the actual MSCP status code fo fest. 
ss_code may a status code to be returned when mscp_code 
Ss matched. 
action_dispatch the driver location to which control is transfered 
when mscp_coce is matched. 
-MACRO ACTION_ENTRY mscp_code=END_ TABLE, ss_code, action_dispatch 
. DIFFERENT mscp_code, END_TABLE 
ASSUME ATE_OFFSET EQ 0 
- WORD actTon dispatch -. 
-BYTE MSCPSK_ST_"mscp_code' 
us 
WORD °6 
-ENDC 
-ENDM = ACTION_ENTRY 


————_—— 


' 1 
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-+¢ 
; CREATE_FORK 
; Functional description: 


This macro initiates a fork thead and then returns control to the 
instruction following the macro invocation. 


; Parameters: 


address address of the first instruction to be executed in the new 
ork thread 

frkblk address of the new fork block 

tr3 new fork R3 value 


fr4 new fork R4 value 
mask —— save mask for registers to save across fork process 
creation 


-MACRO CREATE_FORK address, frkblk=(R5), fr3=R3, fra=R4, - 
mask=<*M<RO,R1,R2,R3,R4,R5>> 


i 
Se Ge Se Se Se Se Ge Se Se Se Ge Ge Ge Ge Se Se eee 


; Save registers. 
-11F DIFFERENT mask, “M<>, PUSHR #mask ; 
: bag | new fork registers. 
-IIF «= DIFFERENT frkblk, (RS), MOVAL frkblk, R5 
-1IF —sdDIFFERENT fr3, RS, MOVL fr3, R3 
lif DIFFERENT fr4, R4, MOVL fré, RG 
BSBW address : 
; Restore registers. 
o lif DIFFERENT mask, “M<>, POPR #mask 
-ENDM CREATE_FORK 


a - 
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++ 
DO_ACTION 


F 1 
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Functional description: 


This macro initiates processing of an action table. The a 


on table 


cti 
immediately follows the DO_ACTION macro, u composed of oY Sy, ENTRY 


statements, and is terminated by ACTION_ENTRY END. If the 


SCP end 


status in the packet pointed to by R2 has a match in 


ACTION_ENTRY statements di 
RO and-control is transfered tc the Label mentioned in the ACTION_ENTRY 
follows 


one of the 
the status in that ACTION_ENTRY is placed in 


t. Otherwise, control is returned to the first instruction 
the ACTION_ENTRY END statement and the contents or RO are 


indeterminant. 


Parameters: 


type 


Inputs: 
R2 

Outputs: 
Rt 


TRANSFER ==> transfer command processing, return status in 
high-order RO. 

NONTRANSFER ==> non-transfer command processing, return status 
n low-order RO. 


MSCP end-packet address 


SS$_xxx status 
Corrupted 


ALL other registers are preserved. 


-MACRO 


DO_ACTION type=NONTRANSFER 
IDENTICAL type TRANSFER 
DUTUSINTR_ACTION_XFER 


IDENTICAL ¢t pe NONTRANSFER 
DUTUSINTR_ACTION_N 


bo” 


valid DO_ACTION parameter 
ACTION 


ogo maser prea arc year Ee OE ea aa eee, Dae 
DUTUMAC .MAR; 1 16-SEP-1984 17:03:29.39 Page 7 


o 

SOUTUDEF 

Functional description: 
This macro defines the yp = etees driver COOB, ——e the 
several IRP/CDORP extensions whic class drivers append to the 
CDDB. Offsets into the $$$220_ ay "DATA Q1 .PSECT and other constants 
common to both class drivers are also defined. 

Parameters: 


GLOBAL - typical for $SxxxDEF macros 


-MACRO_ SDUTUDEF gbl 
SCDDBDEF 


SIRPDEF 
SDEFINI DUTU gbl 
: Disk and Tape Class Driver CDDB Definitions 


-BLKB CDDBSK LENGTH 3; Basic CODB 
SDEF CDDBSA_PRMIRP “BLKB ——sIRP$K _CENG : Permanent IRP/CDRP 
SDEF CDDBSA_DAPIRP _.BLKB IRPSK” “CENGTH : DAP IRP/CORP 


$EQuU CDDBSK_ “DUTULENGTH . 
: Additional CDDB fields which actually occur in the permanent IRP/CDRP 


= CDODBSA_PRMIRP + IRP$L_UCB 


SDEF CopBsi -PRMOCB «= «CBLKLsd1” ; UCB in perm. IRP/CDRP 
epcalDOBSAPPRMIRP, + IRPSL_ABCNT 
SOEF CODBSL_CANCLOFL .BLKL 3 Cancel queue lListhead 


SOEF CDDBSL-CANCLOBL .BLKL 
= CDDBSA_PRMIRP + IRPSL_FOFL 


SDEF CDDBSA -PRMCDRP .BLKB 1” : Persanent CORP 
. = CDDBSA_PRMIRP + IRPSL_CDT 
SDEF CDDBSL_CDT -BLKL 1 ; COT address 


t Additional CDDB fields which actually occur in the DAP IRP/CDRP 


= CODBSA DAPIRP + IRPSL_UCB , 
$oEF  CDDBSL_DAPOCB..BLKL ; UCB in DAP IRP/CDRP 


. = CDDBSA_DAPIRP + IRPS$L_FOFL 


rp 
| 
| 
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| SDEF CDDBSA_DAPCDRP .BLKB 1 ; DAP CORP 


= CDDBSA_DAPIRP + ths CDT 


SveF CDDBSL_DAPCDT BLK ; DAP CDRP COT address 


The following fork block is used to provide an independent fork context 
in which the standard VMS 1/0 database can be updated to reflect a device 
failover. The fork block overlays the last several longwords in the IRP 
fortran of the DAP IRP/CDRP pair. These longwords are unused, we assume. 
his overlay is done to save non-paged pool and to use previously unused 
space in the CDDB. 


See Gs Ge Ge Ge Se ue 


ASSUME <IRPSL_MEDIA + 4> LE IRPSL_ABCNT 


ASSUME <IRPSL_ABCNT + FKBSK_LENGTA> LE IRPSL_FQFL 
" $ RPSL_ABCNT 
SDEF CDDBSA_2PFRB -BLKL FRBSK_LENGTH 


: $$$220_DUTU_DATA_01 Offsets Definitions 


20 


SDEF DUTUSL_CDDB_LISTHEAD -BLKL 1 Address of CDDB 
3; listhead for this 


; device class 
SEQU DUTUSK_DATA_LENGTH . : Size of .PSECT 


i Action table entry offsets 


-=0 
SDEF ATE_OFFSET -BLKW 1 ; Offset of action routine. 
SDEF ATE_MSCPCODE -BLKB 1 ; Value of major MSCP status code. 
SDEF ATE_SSCODE -BLKw 1 ; Value of corresponding SS$_ code. 
SEQU ATE_ENTRY_LEN ; Length of action entry. 
SDEFEND DUTU gpl 

Ss -ENDM S$DUTUDEF 

a 

If MSCP 


Functional description: 
This macro tests an MSCP end-packet status for success or failure and 
branches accordingly. Optionally, the end-packet status can be stored 
(zero-extended) in a longword. 


Parameters: 


“DUTUMAC.MAR; 1 


SSS sss 


type 


then 
status 


Inputs: 


R2 


Outputs: 


SUCCESS ==> branch if MSCP success 

FAILURE ==> branch if MSCP failure 

branch destination 

optional longword to receive zero-extended MSCP status 


MSCP end=-packet address 


ALL registers preserved. 


MACRO 
ExTZVv 


IF MSCP type=SUCCESS, then, status 
BLANK status 
#MSCPSV ST MASK, #MSCPSS_ST_MASK, = 


_SCPSW_STATUS(R2), "status 


MSCPSV_ST_MASK EQ 
MSCPS$S"ST-MASK LE 
#MSCPSA_ST_MASK, MSCPSW_STATUS(R2) 


MSCPSK_ST_SUCC EQ 0 
JOENTICAL type, SUCCESS 
en 


IDENTICAL type, FAILURE 
*then' 


;Invalid IF_MSCP parameter 
iF _MSCP 


16-SEP=1986 17:03:25,359 Page 9 


| DUTUMAC MAR; 1 16-SEP-1984 17:03:29.99 Page 10 


oe 
: IFCANCEL and IFNOCANCE), 
; Functional description: 
These macros test whether or not 2 atyer IRP or CDRP is to be 
canceled and act accordingly. IFCANCEL branches to the specified 
label if the IRP/CDRP should be canceled. IFNOCANCEL branches to the 
specified Label if the IRP/CDRP should not be canceled. 
; Parameters: 
cdrp address of an CDRP to be tested (exclusive with irp parameter) 
then destination Label 
Inputs: 
RS address of a cancel CDRP describing the cancel request 
; Outputs: 


RO is destroyed. 
ALL other registers are preserved. 


-MACRO TEST_IRP ir 
RS 2% ‘ 


MOVAB IRPSL_FQFL*irp’, R2 
Bsew TUSTEST_CANCEL_CDRP 


-ENDM = TEST_IRP 


-MACRO TEST _CDRP cdrp 
a D FFERENT cdrp, (R2) 


MOVAB cdrp, R2 


8 OUTUSTEST_CANCEL_CDRP 
IF DIFFERENT cdre. 7R?), POPL R2 
NDM TEST_CORP 


-MACRO IFCANCEL irp, cdrp. then 
IF NOT_BLANK irp 

TEST_IRP irp 

BLBS RO, then 


irp address of an IRP to be tested (exclusive with cdrp parameter) 
a, 
TEST _CDRP corp 


SENDM = IFCANCEL 


-MACRO IFNOCANCEL irp, cdrp, then 
j ° F NOT _BLANK irp 

TEST_IRP irp 

BLBC RO, then 
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TEST_CORP corp 
BLBC RO, then 
eENDC 

-ENDM = IFNOCANCEL 


———_—__———- EE eT AM SE 


1 
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: Functional description: 


3o¢ 
; INIT LMSCP_MSG 
This macro causes a MSCP command packet to be initialized. 


Parameters: 
ucb address of a UCB whose UCBSW_MSCPUNIT gives the unit number 
for the command. If this parameter is not present, no unit 
number is placed in the command packet. 
Inputs: 
BS CDRP address 
Outputs: 


RO @ RI destroyed 
MSCP command packet address 
ALL other registers preserved. 
«MACRO INIT_MSCP_MSG ucb 
f ANR i 


ucd 
BSBW DUTUSINIT_MSCP_MSG 


if - eeas ucb (R3) 
PUSHL R 
MOVAL ucb, R3 
-ENDC 
SBW = DUTUSINIT_MSCP_MSG_UNIT 
If DIFFERENT ucb TR3) 
POPL R 
-ENDC 
-ENDC 


-ENDM == INI T_MSCP_MSG 


1 
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; INIT_UCB 
; Functional description: 
This macro makes UCB initialization entries in the DPT the template UCB. 


offset field offset name (less the UCBS) for field beatae initialized 
-- if + hha is ons aes for the total UCB whose size -- 
-- is g by the s arameter is allocated. -- 
TE Sohe* t G QUAD (default = LONG) 
value initialized field value 


size tield _ 8 


: Parameters: 


MACRO INIT_UCB offset, size=LONG, value 
SAVE 


ok BLANK offset 

-PSECT $$$200_TEMPLATE_UCB_01 LONG,RD.WRT,EXE 
-BLKB size 

RESTORE 

ett r 88200 TEMPLATE _UCB_01 LONG,RD,WRT,EXE 
“e- UCBS' of set’ 


fF GT <UCBS* of tse = UCBSB_TYPE> 
DPT STORE UCB,UCB$'o: e/c',Zextract(0,1,size),*value' 


ae 
INIT_ORB 
Functional description: 
This macro makes ORB initialization entries in the DPT the template ORB. 
Parameters: 


offset field offset name (less the ORBS) for field potas initialized 
-- if offset is blank, space for the total ORB whose size -- 
=- is given by the size arameter is allocated. -- 
size {tol¢ Sloss BYTE —_— LONG QUAD (default = LONG) 
a 


value initialized Field vaiue 


a INIT_ORB offset, size=LONG, value 
c1F ty. ANK offset 

-PSECT §$ o8200_ TEMPLATE _ORB_01 LONG,RD,WRT EXE 
-BLKB size 

af eek 


PSEC Tog Oa TEMPLATE. ORB_01 LONG,RD,WRT.EXE 
fse 
Sie tne *value’ 
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RESTORE 
. GT <ORBS'offset’ - ORBSB_TYPE> 
a at ORB, ,ORBS‘ offset’, Zextract(0,1,size), value’ 


ZENDC 
-ENDM =o INI T_ORB 
oe 
Invalid Command Processing Macros 


The following three macros relate to processing of MSCP requests which 
reece an MSCP “invalid command’ end status. IVCMD_BEGIN and 

VCMD END define the beginning and end of a co-routine thread in which 
a duplicate of the MSCP command which caused the “invalid command 
error is produced. IF_IVCMD branches when executed within such a 
co-routine thread. Further details of tnese macros and of invalid 
command processing in general can be found in DUTUSUBS. 


; Begin invalid command co-routine thread 


-MACRO IVCMD_BEGIN 
BSBw DuTUSC[OG_IVCMD 
-ENDM IVCMD_BEGIN 


; Branch if in an invalid command co-routine thread 


-MACRO IF _IVCMD then 

ASSUME CDRPS$v_IVCMD EQ 8 

BLBS CORPSL_DUTUFLAGS*1(R5), then 
-ENDM =soIF_LIVCAD 


; End invalid command co-routine thread 
-MACRO IVCMD_END 

JS8 acsp)F 

-ENDM =IVCMD_END 


| 


a 


r 


v 
2 
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ry 
MEDIA 


Parameters: 
dd 


devnam 
dtname 


C 
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Functional description: 


This macro produces one entry in the MSCP media identifier to VMS 
device type conversion table. 


the two character prefered device controller name ( the DD 
part of 0DCn ) 

the hardware device name ( + RAB1 ) 

if DTS ‘devnam' is not a Legal VMS device type, this parameter 
gives fhe correct VMS device type for the device ( should be 
used only when DT$_‘devnam' is not correct ) 


MEDIA dd, devnam, dtname 
$$$220_DEVTYPE_TABLE_01 RD,WRT,EXE BYTE 


$$L$$,<dd> 


~ IRP 
SSTEMPSS = “a/SS$LS$$/ - “x40 


= 


$$ = 


— Ae Mem 
VS VDEZYVZ 
vOoeo 
oODmDen 


mn 
z 
v 
bed 
Sad 


GT SSTEMPSS 
EDIASS = SSMEDIASS + <SSTEMPSS a $$S$$> 


$$s$$ - 5 
$$L$$,<devnam> 
$s$$ - 7> 


GE <$$5S 
= “a/S$$L$$/ - “x40 
GT SSTEMPSS 
SMEDIASS = SSMEDIASS + <SSTEMPSS @ $$S$$> 


.1F FALSE 
he LT SSBEGINSS, SSBEGINSS = <17-$$S$$>/5 
$$S$$ = $$5$$ - 5 
.ENDC 
-ENDR 
eli LT SSBEGINSS, SSBEGINSS = 3 
S$NSS = Lextract( S$BEGINSS, 3, devnam ) 
SSMEDIASS = SSMEDIASS + SSNSS 
-NOSHOW CND 
~SHOW ME 
-LONG S$SMEDIASS 3; Store media-id 
if BLANK dtname 
-BYTE DT$_‘devnam' 3; Store VMS device type 
- IF FALSE ie -- 
sont -BYTE dtname 3 Store explicit VMS type 
-NOS ME i Filler to make Listing look 
~SHOW CND 3 good 
~SHOW ME 
-NOSHOW ME 


| PA 


a 
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» RESTORE 
ENDM 
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PERMCDRP_TO_CDDB 

; Functional description: 

This macro converts an input CDRP address (belonging to one of the 
CORPs permanently associated with a CDDB) to the address of the 
related CODB. 

; Inputs: 


CORP a register containing the base address of a CDRP permanently 
related to a CDDB 


Implicit inputs: 
CORPSW_CDRPSIZE an offset from the CDRP base to the CODB base 
Outputs: 


C008 a register into which the base address of the CODB related to 
the input CORP is stored (may not be the same register as CDRP) 


Implicit outputs: 


. 
. 
. 
° 
. 
. 
. 
. 
° 
* 
. 
° 
. 
. 
© 
e 
. 
° 
2 
. 
. 
. 
* 
. 
. 
. 
* 
7 
°. 
. 
. 
. 
*. 
. 
* 
. 
. 
. 
ce 
. 
2 
. 
. 
. 
. 
. 
’ 
. 


ALL registers except CDDB are preserved. 


-MACRO PERMCDRP_TO_CDDB, cdrp, cddb 
° IDENTICAL cdrp, cddb 
-ERROR ; Identical register arguments to PREMCDRP_TO_CDDB 


- ENDC 
CVTWL = CDORPSW_CDRPSIZE(cdrp), cddb ; Get CORP to CDDB offset. 
ADDL d ddb ; Form base address of CDDB. 


PERRCDR 
.ENDM = PERMCDRP_TO_CDDB 


Ad 
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POST_IRP 
Functional description: 


An IRP is queued for 1/0 post processing. 
IRP are appropriately cleaned up. 


Parameters: 
status final status for IRP 
Inputs: 
RO IRP address 
Outputs: 
RO destroyed 


all other registers preserved 
MACRO + aad status 
MOVZWL #status,R1 

MOVAB RPSL FOFL(RO) RO 
BSBw butu PoST_CDRP 


-ENDM = POST_IRP 
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ALL resources held by the 
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POST_CDRP 
Functional description: 


An CDRP is queued for 1/0 post processing. All resources held by the 
CDRP are appropriately cleaned up. 


Parameters: 
status final status for CDRP 
Inputs: 
RO CDRP address 
Outputs: 
RO destroyed 


all other registers preserved 
-MACRO pest comp status 


MOVZWL #status,R1 
BSBw DUTUSPOST. CORP 


OPL 
.ENDM = POST_CDRP 
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*¢ 
; RESET_MSCP_MSG 
; Functional description: 


This macro causes @ previously used MSCP command packet (or end 
message) to be completely recycled and readied for use in the eqneres 
of another MSCP command. It is intended for use by those functions 
which require more than one MSCP command to properly complete. 


; Parameters: None. 


; Inputs: 
R3 UCB address 
R5 CDRP address 
Outputs: 


RO & RI destroyed 
R2 reset MSCP command packet address 
ALL other registers preserved. 


MACRO RESET_MSCP_MSG 
BSBU« DUTUSRESET“MSCP_MSG 
TENDM —-RESET_MSCP“MSG 
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SEND _MSCP_MSG 
Functional description: 
This macro causes the MSCP message packet pointed to by the CORP whose 


address is stored in R5 to be transmitted to the MSCP server at the 
other end of the connection whose PDT address is in R4. 


or 
accounting purposes, the CORP is queued to the active transfers queue 


of the CDDB whose address is in UCBSL_CDDB(R3). 


Control is returned to the instruction following this macro when the 


MSCP end message has been received. 


The macro accepts one parameter which is one of: 
<blank> = standard class driver send message request 
(DUTUSSEND_MSCP_MSG is called) 
INLINE = fast executTon send message reque 


st 
(send message code is generated inline; except for 
when control may still be 


handling special cases 
transfered to DUTUSSEND_MSCP_MSG) 
DRIVER = internal class driver send message request 
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routin 
Implicit inputs: 
R3 UCB address 


R4 PDT address 
RS CORP address 


IF BLANK type 
BSBy, | DUTUSSEND_mScP_ns6 


FAL 
| IF IDENTICAL type DRIVER 
| BSB = DUTUSSEND_DRIVER_MSG 


BNEQ u ; 
/main: MOVL yeast CODB(R3), R1 3 
(send: INSQUE (R5) ,SCDDBSL_CORPOBL (R1); 


MOVL § #MSCPSK_MXCMDLEN,R1 ; 


F IDENTICAL type, INLINE 
PUSHAB B*exit : 
| JMP @PDTSL_SNDCNTMSG(R4) ~—s; 
dbuf: 68SBW¥  DUTUSDUMP_COMMAND : 


BRB main 


(DUTUSSEND_DRIVER_MSG is called 
ROUTINE = build the code portion of the DUTUSSEND_MSCP_MSG 
e 


-MACRO SEND_MSCP_MSG, type, ?send, ?dbuf, ?main, ?exit 


3; The “‘normal"’ action is 
3; to call the common routine. 


; Send internal driver msg. 
; Otherwise, generate code. 


1IF IDENTICAL type, ROUTINE, .SHOW 


4 
: vee a diagnostic buffer specified? 
BITw #1RPSH_DIAGBUF , CORPSW_STS(R5) 


(R 

ranch if diagnostic buffer present. 
Get CDDB of intelligent controller. 
Insert CDRP onto tail of queue 

of CDRP’s sent to the pork. 
Pass length of longest MSCP command. 


; INLINE needs return address. 


Jump to PORT routine 


If diagnostic buffer present, record 
P command message sent in it. 
Then rejoin normal code path. 


SSS SSS SSS 


v 


Se Se Se Se Ge Ge Ge Se Se Se Se Se Se Se Se 


DUTUMAC .MAR; 1 

elif 

exit: 

ENDC 
-ENDC 
»~ENDM 
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IDENTICAL type, ROUTINE, .NOSHOW MEB 


SEND _MSCP_MSG 
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DUTUMAC .MAR; 1 


-o+¢ 
; WAIT_FOR_10D8 
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; Functional description: 


This ~aagg | ye toe when the 1/0 database is available for write 


access. 


is specified, control is return there if and 


only if no fork was required to gain access to the mutex. 


; Inputs: 


R3 
RG 
R5 


fork saved register 
fork saved roy ‘ener 
address of a fork block 


; Implicit inputs: 


1OCSGL_MUTEX address of the 1/0 data base mutex 
; Outputs: 


R3 
R4 
R5 


fork saved register 
fork saved register 
address of a fork block 


N.B8. ,vcese FIPL is used as the offset to the fork IPL field 
int he fork block. This is used as a convenient -- always 
det ined in a driver -- offset to the fork IPL. There is no 
requirement that the fork block esinted to by RS be a UCB. 


; Implicit outputs: 


ALl registers except R3 - RS destroyed. 


If immediate exit taken, all registers preserved. 
a walt _FOR_10DB, immediate, ?loop, 


BNEQ 
-ENDM 


?done 
#-1,~G*<TOCSGL_MUTEX*MTX$W_OWNCNT> ; Is 1/0 mutex owned? 
BLANK, immediate 

done 

immediate 

#IPL$_SCS, UCBSB_FIPL(RS) ; Guarantee fork IPL. 


@-1, G*<IOCSGL_MUTEX*MTXS$W_OWNCNT> ; Is 1/0 mutex owned? 
oop 


WAIT_FOR_10D8 


wv 
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